norm_2 Function

public function norm_2(a) result(result)

function that calculates the Euclidean norm (L2 norm) of a vector $\vec{a}$, where $\vec{a} \in \mathbb{R}^n$ $$||\vec{a}||_2 = \sqrt{\sum_{i=1}^{n} a_i^2} \quad \text{ with } \quad \sum_{i=1}^{n} a_i^2 = \vec{a} \cdot \vec{a}$$ where $n$ is the dimension of the real vector $\vec{a}$.

Arguments

Return Value real(kind=dp)

    FUNCTION norm_2(a) RESULT(result)

        REAL(dp), DIMENSION(:) :: a
        REAL(dp) :: result

        result = SQRT(DOT_PRODUCT(a, a))
    
    END FUNCTION norm_2